<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>4</cardCount>
<cardID>4571</cardID>
<listID>4680</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>438</height>
</cardSize>
<script>on connectglobal postingEnabled, useCTBput false into postingEnabledput the hilite of btn "Use CTB" of card "setup" into useCTBput cd fld "server" of card "setup" into remoteNameif remoteName is empty thenask "Please enter the address of the news server:"if it is empty then exit connectput it into remoteNameput it into cd fld "server" of card "setup"end if-- selection and configuration of the connection happens hereif useCTB thenCTBNewConnection "MacTCP Tool",10240,10240CTBConfigure "RemoteTCPPort 119"CTBConfigure "RemoteAddress" && quote & remoteName & quoteCTBOpenelseglobal NNTPconnectionget TCPNameToAddr(remoteName)if it is empty or first word of it is "§§§" thenput itanswer "Could not translate the host name ´" & remoteName & "´."exit connectend ifput TCPActiveOpen(it, 119, 0) into NNTPconnectionend ifrepeatget fetchLine(900)if it is not empty thenput itput (first word of it is "200") into postingEnabledexit repeatelseanswer "No response from news server within timeout period." with "Cancel" or "Retry"if it is "Cancel" thenif useCTB then CTBDispose else TCPRelease NNTPconnectionexit repeatend ifend ifend repeatend connecton openStackinstallAboutconnectif cd fld "groups" of cd "browser" is empty then go to cd "setup"end openStackon closeStackglobal useCTBsend "closing" to cd fld "groups" of card "browser"sendLine "QUIT"put fetchLine(100)if useCTB then CTBDisposeelseglobal NNTPconnectionTCPRelease NNTPconnectionend ifdoMenu "Compact Stack"send "reset menuBar" to HyperCard -- remove our About itemend closeStackfunction fetchLine timeOutglobal useCTBif useCTB thenif timeOut is empty thenrepeatget CTBRecvUpTo(linefeed, 60)if it is empty then set cursor to watchelse return itend repeatelse return CTBRecvUpTo(linefeed, timeOut)elseglobal NNTPconnectionif timeOut is empty thenrepeatget TCPRecvUpTo(NNTPconnection, linefeed, 60, empty)if it is empty then set cursor to watchelse exit repeatend repeatelse get TCPRecvUpTo(NNTPconnection, linefeed, timeOut, empty)delete last char of itreturn itend ifend fetchLineon sendLine theTextglobal useCTBif useCTB then CTBSendWithLF theText & returnelseglobal NNTPconnectionTCPSend NNTPconnection, theText & return & linefeedend ifend sendLineon helpgo to cd "help"end help--- About handling ---on suspendStacksend "reset menuBar" to HyperCardend suspendStackon resumeStackinstallAboutend resumeStackon installAboutput "About Stacked News…" into first menuItem of menu "Apple" with menuMessages "about"end installAbouton aboutanswer "Stacked News v1.4" & return & "by Georg Gollmann" & return & ¬"gollmann@edvz.tuwien.ac.at"end about-- end of script</script>
